#!/usr/local/bin/perl
print "File\tFirst Scan\tLast scan\tMS\t#Engines\tB\tO\tP\tRejected peptide\tBW peptide w/o mods\tBW peptide with mods\tBW z\tBW Actual Mass\tBW DeltaMass\tBW XCorr\tBW DeltaCn\tBW Sp\tBW RSp\tBW Ions\tBW D\tBW DB first match\tBW Count\t";
print "\n";
print "File\tFirst Scan\tLast scan\tMS\t#Engines\tB\tO\tP\t",
      "Rejected peptide\tBW peptide w/o mods\tBW peptide with mods\tBW z\t",
      "BW Actual Mass\tBW DeltaMass\tBW XCorr\tBW DeltaCn\tBW Sp\tBW RSp\tBW Ions\tBW D\tBW DB first match\tBW Count\t";
      
print "\n";
my $text = "File\tFirst Scan\tLast scan\tMS\t#Engines\tB\tO\tP\t" .
      "Rejected peptide\tBW peptide w/o mods\tBW peptide with mods\tBW z\t" .
      "BW Actual Mass\tBW DeltaMass\tBW XCorr\tBW DeltaCn\tBW Sp\tBW RSp\tBW Ions\tBW D\tBW DB first match\tBW Count\t";
print $text
